home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / share / 11 / setup.exe / %MAINDIR% / DEMOS / CIHTTP / HTTPEXP / about.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-09-07  |  4.5 KB  |  153 lines
  1. VERSION 5.00
  2. Begin VB.Form AboutBox 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "About HTTP Explorer"
  6.    ClientHeight    =   5655
  7.    ClientLeft      =   2100
  8.    ClientTop       =   840
  9.    ClientWidth     =   7005
  10.    DrawWidth       =   3
  11.    ForeColor       =   &H00000000&
  12.    Icon            =   "About.frx":0000
  13.    LinkTopic       =   "Form2"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    NegotiateMenus  =   0   'False
  18.    PaletteMode     =   1  'UseZOrder
  19.    ScaleHeight     =   5655
  20.    ScaleWidth      =   7005
  21.    Begin VB.PictureBox CrescentLogo 
  22.       Appearance      =   0  'Flat
  23.       AutoSize        =   -1  'True
  24.       BackColor       =   &H80000005&
  25.       BorderStyle     =   0  'None
  26.       ForeColor       =   &H80000008&
  27.       Height          =   2505
  28.       Left            =   0
  29.       Picture         =   "About.frx":000C
  30.       ScaleHeight     =   2505
  31.       ScaleWidth      =   7080
  32.       TabIndex        =   2
  33.       Top             =   3180
  34.       Width           =   7080
  35.    End
  36.    Begin VB.CommandButton cmdOK 
  37.       Caption         =   "OK"
  38.       Default         =   -1  'True
  39.       Height          =   405
  40.       Left            =   5745
  41.       TabIndex        =   0
  42.       Top             =   2565
  43.       Width           =   1125
  44.    End
  45.    Begin VB.Image imgIcon 
  46.       Height          =   480
  47.       Left            =   225
  48.       Picture         =   "About.frx":13836
  49.       Top             =   135
  50.       Width           =   480
  51.    End
  52.    Begin VB.Line lneBox 
  53.       BorderColor     =   &H00FFFFFF&
  54.       Index           =   3
  55.       X1              =   5790
  56.       X2              =   5790
  57.       Y1              =   1050
  58.       Y2              =   1890
  59.    End
  60.    Begin VB.Line lneBox 
  61.       BorderColor     =   &H00808080&
  62.       Index           =   2
  63.       X1              =   1095
  64.       X2              =   1095
  65.       Y1              =   1065
  66.       Y2              =   1905
  67.    End
  68.    Begin VB.Line lneBox 
  69.       BorderColor     =   &H00FFFFFF&
  70.       Index           =   1
  71.       X1              =   1110
  72.       X2              =   5800
  73.       Y1              =   1890
  74.       Y2              =   1890
  75.    End
  76.    Begin VB.Line lneBox 
  77.       BorderColor     =   &H00808080&
  78.       Index           =   0
  79.       X1              =   1095
  80.       X2              =   5790
  81.       Y1              =   1050
  82.       Y2              =   1050
  83.    End
  84.    Begin VB.Label lblWarning 
  85.       BackStyle       =   0  'Transparent
  86.       Caption         =   $"About.frx":13C78
  87.       ForeColor       =   &H00000000&
  88.       Height          =   1035
  89.       Left            =   75
  90.       TabIndex        =   1
  91.       Top             =   2115
  92.       UseMnemonic     =   0   'False
  93.       Width           =   4785
  94.       WordWrap        =   -1  'True
  95.    End
  96.    Begin VB.Line lneSeparator 
  97.       BorderColor     =   &H00FFFFFF&
  98.       Index           =   1
  99.       X1              =   -240
  100.       X2              =   7910
  101.       Y1              =   2040
  102.       Y2              =   2040
  103.    End
  104.    Begin VB.Line lneSeparator 
  105.       BorderColor     =   &H00808080&
  106.       Index           =   0
  107.       X1              =   -135
  108.       X2              =   7910
  109.       Y1              =   2025
  110.       Y2              =   2025
  111.    End
  112. Attribute VB_Name = "AboutBox"
  113. Attribute VB_GlobalNameSpace = False
  114. Attribute VB_Creatable = False
  115. Attribute VB_PredeclaredId = True
  116. Attribute VB_Exposed = False
  117. Option Explicit
  118. Private Sub cmdOK_Click()
  119.     Unload Me
  120. End Sub
  121. Private Sub Form_Load()
  122.     CenterForm Me
  123. End Sub
  124. Private Sub Form_Paint()
  125.     Dim SysRes    As Integer
  126.     Dim PrintText As String
  127.     PrintText = "Progress Software Corporation HTTP Explorer Version 1.0"
  128.     Me.CurrentY = 150
  129.     Me.CurrentX = 1100
  130.     Print PrintText;
  131.     PrintText = "Copyright " & Chr(169) & " 1996 Progress Software Corporation"
  132.     Me.CurrentY = 375
  133.     Me.CurrentX = 1100
  134.     Print PrintText;
  135.     PrintText = "This product is licensed to:"
  136.     Me.CurrentY = 750
  137.     Me.CurrentX = 1100
  138.     Print PrintText;
  139.     Me.CurrentY = 1150
  140.     Me.CurrentX = 1200
  141.     Print "Internet ToolPak Customer";
  142.     Me.CurrentY = 1375
  143.     Me.CurrentX = 1200
  144.     Print "Your Company";
  145.     PrintText = "Serial number:   00000000-00"
  146.     Me.CurrentY = 1600
  147.     Me.CurrentX = 1200
  148.     Print PrintText;
  149. End Sub
  150. Private Sub imgIcon_DblClick()
  151.     MsgBox "This software designed by Val", vbOKOnly, "HTTP Explorer"
  152. End Sub
  153.